The Cartoon Guide to Physics/The Cartoon Guide to Physics.iso/pc/physdata/shared.dir/00560_scroll3.ls

Text File | 1995-09-05 | 1.5 KB | 47 lines

on mouseDown
  global StartTermLine, EndTermLine, SelectedStory, NowMode, SelectedLetter
  puppetSprite(18, 0)
  puppetSprite(22, 0)
  puppetSprite(23, 0)
  puppetSprite(26, 0)
  puppetSprite(35, 0)
  updateStage()
  repeat while the mouseDown
    if NowMode = "Stories" then
      set theField to "StoryList"
      set theSelected to SelectedStory
    else
      set theField to "AbcList"
      set theSelected to SelectedLetter
    end if
    if the mouseV > 308 then
      if the number of items in line theSelected of field theField > EndTermLine then
        puppetSound("Click")
        set EndTermLine to EndTermLine + 1
        set StartTermLine to StartTermLine + 1
        set Counter to 0
        repeat with i = StartTermLine to EndTermLine
          set newItem to item i of line theSelected of field theField
          set Counter to Counter + 1
          put newItem into line Counter of field "termsText"
        end repeat
      end if
    else
      if the mouseV <= 303 then
        if StartTermLine <> 2 then
          puppetSound("Click")
          set EndTermLine to EndTermLine - 1
          set StartTermLine to StartTermLine - 1
          set Counter to 0
          repeat with i = StartTermLine to EndTermLine
            set newItem to item i of line theSelected of field theField
            set Counter to Counter + 1
            put newItem into line Counter of field "termsText"
          end repeat
        end if
      end if
    end if
    updateStage()
  end repeat
end